Initial revision

diff --git a/lisp/emacs-lisp/lucid.el b/lisp/emacs-lisp/lucid.el
new file mode 100644 (file)
index 0000000..8ee8603
--- /dev/null
+++ b/lisp/emacs-lisp/lucid.el
@@ -0,0 +1,5 @@
+(defun add-timeout (secs function object &optional resignal)
+  (run-at-time secs resignal function object))
+
+(defun disable-timeout (timeout)
+  (cancel-timer timeout))